home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / misc / emu / AMIGHPv2a.lha / AMIGHPv2a / EXAMPLES / FACTORIEL.s < prev    next >
Text File  |  1996-09-24  |  805b  |  75 lines
  1.     include    entries.i
  2.     con(5)    DOCODE
  3. Debut    con(5)    Fin-Debut
  4.  
  5. J    equ    $800F5
  6. I    equ    $800FA
  7.  
  8.  
  9.     GOSBVL    $0679B
  10.     D0=(5)    $800F5
  11.     A=DAT1    A
  12.     DAT0=A    A
  13.     C=A    A
  14.     D1=C
  15.     A=DAT1    A
  16.     DAT0=A    A
  17.     LCHEX    $02911
  18.     A=DAT0    A
  19.     ?C#A    A
  20.     GOYES    LAB0
  21.     GOTO    LAB1
  22. LAB0
  23.     GOSBVL    $067D2
  24.     LAHEX    $00202
  25.     GOSBVL    $05023
  26. LAB1
  27.     D1=D1+    5
  28.     D0=(5)    $800F5
  29.     A=DAT1    A
  30.     DAT0=A    A
  31.     C=A    A
  32.     D0=(5)    $800FA
  33.     DAT0=C    A
  34.     LCHEX    $00000
  35.     A=DAT0    A
  36.     ?C=A    A
  37.     GOYES    LAB2
  38.     GOTO    LAB3
  39. LAB2
  40.     GOSBVL    $067D2
  41.     LAHEX    $00203
  42.     GOSBVL    $05023
  43. LAB3
  44. LAB4
  45.     LCHEX    $00001
  46.     D0=(5)    $800FA
  47.     A=DAT0    A
  48.     ?C#A    A
  49.     GOYES    LAB5
  50.     GOTO    LAB6
  51. LAB5
  52.     D0=(5)    $800FA
  53.     C=DAT0    A
  54.     C=C-1    A
  55.     DAT0=C    A
  56.     D0=(5)    $800F5
  57.     A=DAT0    A
  58.     GOSBVL    $03991
  59.     C=B    A
  60.     DAT0=C    A
  61.     GOTO    LAB4
  62. LAB6
  63.     D0=(5)    $800F5
  64.     A=DAT0    A
  65.     R0=A    A
  66.     GOSBVL    $067D2
  67.     GOSBVL    $06537
  68.     GOSBVL    $0679B
  69.     LAHEX    $800F5
  70.     D0=A
  71.     GOSBVL    $067D2
  72.     A=DAT0    A
  73.     D0=D0+    5
  74.     PC=(A)
  75. Fin